home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Topik
/
Topik - Disk 39 - Educational (19xx)(Topik Public Domain)(PD)[a][WB].zip
/
Topik - Disk 39 - Educational (19xx)(Topik Public Domain)(PD)[a][WB].adf
/
SouthAsia
/
Pronounce
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1978-05-25
|
451b
|
21 lines
' GOSUB SayHow
Begin:
INPUT "Type in your word->",word$
code$=TRANSLATE$ (word$)
PRINT code$
SAY TRANSLATE$ (word$)
Again:
INPUT "Type in your code-> ",c$
' c$="BYUH0TAE4N"
SAY c$ ',How%
SAY TRANSLATE$ ("AGAIN")
SAY c$ ', How%
INPUT "New word (N) Again (A)";w$
IF w$= "N" GOTO Begin
IF w$= "A" GOTO Again
SayHow:
FOR j=0 TO 8: READ How%(j):NEXT j
RETURN
DATA 110,0,250,0,22200,64,10,0,0